home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / DARK.EXE / Bawt / System / POPUPS.INI < prev    next >
INI File  |  1997-03-10  |  4KB  |  145 lines
  1. [mPopup]
  2. n0=Chanserv
  3. n1=.Add A Channel To Login: {
  4. n2=  if (%chanserv == $null) { 
  5. n3=    %chanserv = $?="<channel> <password>, <chan2> <passwd>, <chan3.." 
  6. n4=  }
  7. n5=  else { 
  8. n6=    %chanserv = %chanserv  $+ $chr(44)  $?="<chan1> <passwd>, <chan2> <passwd>, <chan3.." 
  9. n7=  }
  10. n8=}
  11. n9=.Remove A Channel From Login: {
  12. n10=  %cut = $$?="Enter Channel To Remove"
  13. n11=  %temp = %chanserv
  14. n12=  %count = $token(0,44,%temp)
  15. n13=  :remove
  16. n14=  if (%cut isin $token(%count,44,%temp) && %count == 1) {
  17. n15=    %remove = $token(%count,44,%temp) $+ ,
  18. n16=    %temp = $remove(%temp,%remove)
  19. n17=    goto finish
  20. n18=  }
  21. n19=  elseif (%cut isin $token(%count,44,%temp)) { 
  22. n20=    %temp = $remove(%temp,$token(%count,44,%temp))
  23. n21=    goto finish
  24. n22=  }
  25. n23=  else { 
  26. n24=    dec %count
  27. n25=    if (%count > 0) goto remove
  28. n26=  }
  29. n27=  echo 4 -a %cut was not found in your autologin
  30. n28=  return
  31. n29=  :finish
  32. n30=  %fixchars1 = ,,
  33. n31=  %fixchars2 = , ,
  34. n32=  %temp = $replace(%temp,%fixchars1,$chr(44))
  35. n33=  %temp = $replace(%temp,%fixchars2,$chr(44))
  36. n34=  unset %fixchars1 %fixchars2 %count
  37. n35=  echo 10 -a Removed %cut from your Auto Login
  38. n36=  %chanserv = %temp
  39. n37=}
  40. n38=.Login Channels:d.chanserv.login
  41. n39=Nickserv
  42. n40=.Add A Nick To Login: {
  43. n41=  if (%nickserv == $null) { 
  44. n42=    %nickserv = $?="<nick1> <password>, <nick2> <passwd>, <nick3.." 
  45. n43=  }
  46. n44=  else { 
  47. n45=    %nickserv = %nickserv  $+ $chr(44)  $?="<nick1> <passwd>, <nick2> <passwd>, <nick3.." 
  48. n46=  }
  49. n47=}
  50. n48=.Remove A Nick From Login: {
  51. n49=  %cut = $$?="Enter Nick To Remove"
  52. n50=  %temp = %chanserv
  53. n51=  %count = $token(0,44,%temp)
  54. n52=  :remove
  55. n53=  if (%cut isin $token(%count,44,%temp) && %count == 1) {
  56. n54=    %remove = $token(%count,44,%temp) $+ ,
  57. n55=    %temp = $remove(%temp,%remove)
  58. n56=    goto finish
  59. n57=  }
  60. n58=  elseif (%cut isin $token(%count,44,%temp)) { 
  61. n59=    %temp = $remove(%temp,$token(%count,44,%temp))
  62. n60=    goto finish
  63. n61=  }
  64. n62=  else { 
  65. n63=    dec %count
  66. n64=    if (%count > 0) goto remove
  67. n65=  }
  68. n66=  echo 4 -a %cut was not found in your autologin
  69. n67=  return
  70. n68=  :finish
  71. n69=  %fixchars1 = ,,
  72. n70=  %fixchars2 = , ,
  73. n71=  %temp = $replace(%temp,%fixchars1,$chr(44))
  74. n72=  %temp = $replace(%temp,%fixchars2,$chr(44))
  75. n73=  unset %fixchars1 %fixchars2 %count
  76. n74=  echo 4 -a Removed %cut from your Auto Login
  77. n75=  %chanserv = %temp
  78. n76=}
  79. n77=.Login:d.nickserv.login
  80.  
  81. [cPopup]
  82. n0=Advertise:/me is using %ver
  83. n1=Protection
  84. n2=.Add A Channel To Protect: {
  85. n3=  if (%chanprot == $null) { 
  86. n4=    %chanprot = $?="Which Channel(s) ? #Scripter_Help ,#Hell ?" 
  87. n5=  }
  88. n6=  else { 
  89. n7=    %chanprot = %chanprot $chr(44) $+ $?="Which Channel(s) ? #Scripter_Help ,#Hell ?" 
  90. n8=    %chanprot = $remove(%chanprot,$chr(32)) 
  91. n9=  }
  92. n10=}
  93. n11=.Remove A Channel From Protection: {
  94. n12=  if (%chanprot == $null) { 
  95. n13=    echo 4 -a There Are No Channels Set To Protect 
  96. n14=    halt 
  97. n15=  }
  98. n16=  %temp = "" 
  99. n17=  %done = "" 
  100. n18=  %cut = $?="Which Channel To Remove?" 
  101. n19=  %i = 0  
  102. n20=  %stop = $count(%chanprot,$chr(44)) + 1
  103. n21=  :start 
  104. n22=  inc %i
  105. n23=  if (%i > %stop) { goto end }
  106. n24=  elseif ($gettok(%chanprot,%i,44) = %cut) { 
  107. n25=    %done = Yes 
  108. n26=    goto start 
  109. n27=  }
  110. n28=  else { 
  111. n29=    %temp = %temp $gettok(%chanprot,%i,44)  
  112. n30=    goto start 
  113. n31=  }
  114. n32=  :end
  115. n33=  if (%done != Yes) { 
  116. n34=    echo 4 -a The Channel That You Chose To Remove From The List Of Channels Wasnt On The List Of Channels 
  117. n35=    halt 
  118. n36=  }
  119. n37=  %chanprot = $replace(%temp,$chr(32),$chr(44))  
  120. n38=  echo 4 -a Channesl To Protect Are: %chanprot   
  121. n39=  halt
  122. n40=}
  123.  
  124. [lPopup]
  125. n0=[&P]rotection/AutoOp:/.auser 100 $$1 | /.guser 100 $$1 3 | notice $$1 You are now PROTECTED by %ver 
  126.  
  127. [bPopup]
  128. n0=[-Bawt-]
  129. n1=She&ll to DOS:/run C:\windows\command.com | /echo Shelling to DOS.... | /speak Shell Window Activated, master.
  130. n2=-
  131. n3=Server Information
  132. n4=.List Operators:/stats o
  133. n5=.List K-Lines:/stats k
  134. n6=.List I-Lines:/stats i
  135. n7=.List G-Lines:/stats g
  136. n8=.Trace Server:/trace $?="Enter Server To Trace:"
  137. n9=.View Links:/links
  138. n10=.View Admin Info:/admin
  139. n11=.View Info:/info
  140. n12=.View Map:/map
  141. n13=.Change Server:/se $?="Enter Server Name:" $?="Enter Server Port:"
  142. n14=Join Protected Channels:d.login
  143. n15=-
  144. n16=&Help:/F1
  145.